home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / SmallTalk / String.st < prev    next >
Text File  |  1995-08-25  |  7KB  |  292 lines
  1. "======================================================================
  2. |
  3. |   String Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         23 Feb 92      Added asInteger and asByteArray.
  36. |
  37. | sbb         16 Mar 91      Class creation now separate statement.
  38. |
  39. | sbb          4 Feb 91      Fixed duplicate fileName definition to be filePos
  40. |
  41. | sbb         21 Sep 90      Changed printOn: to print with quote marks.  On
  42. |              re-reading the documentation it appears as if this is
  43. |              the proper behavior (sigh).
  44. |
  45. | sbyrne      3 Sep 89      added asString for method source package
  46. |
  47. | sbyrne     25 Apr 89      created.
  48. |
  49. "
  50.  
  51. ArrayedCollection variableByteSubclass: #String
  52.           instanceVariableNames: ''
  53.           classVariableNames: ''
  54.           poolDictionaries: ''
  55.           category: nil
  56. !
  57.  
  58. String comment: 
  59. 'My instances represent string data types.  I provide accessing and
  60. manipulation methods for string data types.' !
  61.  
  62. !String class methodsFor: 'basic'!
  63.  
  64. fromString: aString
  65.     " ### probably should use regular copy"
  66.     ^aString copyFrom: 1 to: aString size
  67. !
  68.  
  69. readFrom: aStream
  70.     | str newChar |
  71.     str _ WriteStream on: (String new: 0).
  72.     aStream do:            " ### Is this risky, doing a next inside? "
  73.         [ :char | char == $'
  74.                   ifTrue: [ newChar _ aStream next.
  75.                           newChar == $' ifFalse: [ str nextPut: $' ].
  76.                 str nextPut: newChar ]
  77.                       ifFalse: [ str nextPut: char ]
  78.     ].
  79.     ^str contents
  80. !!
  81.  
  82.  
  83.  
  84. !String methodsFor: 'comparing'!
  85.  
  86. < aString
  87.     "Return true if the receiver is less than aString, ignoring case
  88.     differences."
  89.     self >= aString ifTrue: [ ^false ]
  90.                     ifFalse: [ ^true ]
  91. !
  92.  
  93. > aString
  94.     "Return true if the receiver is greater than aString, ignoring case
  95.     differences."
  96.     self <= aString ifTrue: [ ^false ]
  97.                     ifFalse: [ ^true ]
  98. !
  99.  
  100. <= aString
  101.     "Returns true if the receiver is less than or equal to aString,
  102.     ignoring case differences.  If is receiver is an initial substring of
  103.     aString, it is considered to be less than aString."
  104.     | c1 c2 |
  105.     " Scan self and aString until a character is clearly greater or lesser
  106.       (All preceding characters must have been equal).  If the end is reached,
  107.       one of the strings is a possibly improper initial substring of the other,
  108.       and for the receiver to be less than aString, it must be the initial
  109.       substring."
  110.     1 to: (self size min: aString size) do:
  111.         [ :i | c1 _ (self at: i) asLowercase.
  112.            c2 _ (aString at: i) asLowercase.
  113.            c1 < c2 ifTrue: [ ^true ].
  114.            c1 > c2 ifTrue: [ ^false ] ].
  115.     ^self size <= aString size
  116. !
  117.  
  118. >= aString
  119.     "Returns true if the receiver is greater than or equal to aString,
  120.     ignoring case differences.  If is aString is an initial substring of
  121.     the receiver, it is considered to be less than the receiver."
  122.     | c1 c2 |
  123.     1 to: (self size min: aString size) do:
  124.         [ :i | c1 _ (self at: i) asLowercase.
  125.            c2 _ (aString at: i) asLowercase.
  126.            c1 < c2 ifTrue: [ ^false ].
  127.            c1 > c2 ifTrue: [ ^true ] ].
  128.     ^self size >= aString size
  129. !
  130.  
  131.  
  132.  
  133. sameAs: aString
  134.     "Returns true if the receiver is the same string as aString, ignoring
  135.     case differences."
  136.     self size ~= aString size ifTrue: [ ^false ].
  137.     1 to: self size do:
  138.         [ :i | (self at: i) asLowercase ~= (aString at: i) asLowercase
  139.             ifTrue: [ ^false ] ].
  140.     ^true
  141. !
  142.  
  143.  
  144. match: aString
  145.     ^self asLowercase matchSubstring: 1 in: aString asLowercase at: 1
  146. !!
  147.  
  148.  
  149.  
  150. !String methodsFor: 'converting'!
  151.  
  152. asUppercase
  153.     "Returns a copy of self as an uppercase string"
  154.     | newStr |
  155.     newStr _ self species new: self size.
  156.     1 to: self size do:
  157.         [ :i | newStr at: i put: (self at: i) asUppercase ].
  158.     ^newStr
  159. !
  160.  
  161. asLowercase
  162.     "Returns a copy of self as a lowercase string"
  163.     | newStr |
  164.     newStr _ self species new: self size.
  165.     1 to: self size do:
  166.         [ :i | newStr at: i put: (self at: i) asLowercase ].
  167.     ^newStr
  168. !
  169.  
  170. asString
  171.     "But I already am a string!  Really!"
  172.     ^self
  173. !
  174.  
  175. asByteArray
  176.     | byteArray size |
  177.     size _ self size.
  178.     byteArray _ ByteArray new: size.
  179.     byteArray replaceFrom: 1 to: size withString: self startingAt: 1.
  180.     ^byteArray
  181. !
  182.  
  183. asInteger
  184.     | result |
  185.     result _ 0.
  186.     self do: 
  187.     [ :ch | ch isDigit
  188.             ifFalse: [ ^result ].
  189.         result _ result * 10 + ch digitValue ].
  190.     ^result
  191. !
  192.  
  193.  
  194. fileName
  195.     "But I don't HAVE a file name!"
  196.     ^nil
  197. !
  198.  
  199. filePos
  200.     "But I don't HAVE a file position!"
  201.     ^nil
  202. !
  203.  
  204. asSymbol
  205.     "Returns the symbol corresponding to the string"
  206.     ^Symbol intern: self
  207. !!
  208.  
  209.  
  210.  
  211. !String methodsFor: 'copying'!
  212.  
  213. shallowCopy
  214.     | newStr |
  215.     newStr _ self species new: self size.
  216.     1 to: self size do:
  217.         [ :i | newStr at: i put: (self at: i) ].
  218.     ^newStr
  219. !
  220.  
  221. deepCopy
  222.     ^self shallowCopy
  223. !
  224.  
  225. , aString
  226.     | newString mySize |
  227.     newString _ self species new: ((mySize _ self size) + aString size).
  228.     newString primReplaceFrom: 1 to: mySize with: self startingAt: 1.
  229.     newString primReplaceFrom: mySize + 1 to: newString size
  230.           with: aString startingAt: 1.
  231.     ^newString
  232. !
  233.  
  234. replaceFrom: start to: stop with: replacementCollection
  235.     self replaceFrom: start to: stop with: replacementCollection 
  236.      startingAt: 1
  237. !
  238.  
  239. replaceFrom: start to: stop with: replacementCollection startingAt: repStart
  240.     self primReplaceFrom: start to: stop with: replacementCollection
  241.      startingAt: repStart
  242.  
  243. !!
  244.  
  245.  
  246.  
  247.  
  248. !String methodsFor: 'printing'!
  249.  
  250. printOn: aStream
  251.     self storeOn: aStream
  252. !!
  253.  
  254.  
  255.  
  256. !String methodsFor: 'storing'!
  257.  
  258. storeOn: aStream
  259.     aStream nextPut: $'.
  260.     self do:
  261.         [ :char | char == $' ifTrue: [ aStream nextPut: char ].
  262.               aStream nextPut: char ].
  263.     aStream nextPut: $'
  264. !!
  265.  
  266.  
  267.  
  268. !String methodsFor: 'private'!
  269.  
  270. matchSubstring: p in: aString at: s
  271.     | pc |
  272.     p > self size
  273.         ifTrue: [ ^s > aString size ].
  274.     pc _ self at: p.
  275.     pc = $*
  276.         ifTrue: [ s to: (aString size) + 1 do:
  277.                 [ :ss | (self matchSubstring: p + 1
  278.                           in: aString
  279.                   at: ss)
  280.                     ifTrue: [ ^true ] ].
  281.           ^false ].
  282.     s > aString size ifTrue: [ ^false ].
  283.     pc = $#
  284.         ifTrue: [ ^self matchSubstring: p + 1 in: aString at: s + 1 ].
  285.  
  286.     pc = (aString at: s)
  287.         ifTrue: [ ^self matchSubstring: p + 1 in: aString at: s + 1 ].
  288.     ^false
  289. !!
  290.  
  291.  
  292.